home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue32 / clinic / IMPORTU.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-01-05  |  461 b   |  21 lines

  1. unit ImportU;
  2.  
  3. interface
  4.  
  5. function Power(X, Y: Double): Double;
  6.  
  7. implementation
  8.  
  9. { 16-bit OS require _no_ extension in import declaration }
  10. { 32-bit: NT requires extension, Win95 doesn't mind }
  11. const
  12.   DLLName = 'DLL'{$ifdef Win32}+'.DLL'{$endif};
  13.  
  14. { 16-bit apps typically link by number }
  15. { 32-bit apps typically link by name }
  16.  
  17. function Power(X, Y: Double): Double;
  18.   external DLLName {$ifdef Win32}name 'Pow'{$else}index 1{$endif};
  19.  
  20. end.
  21.